home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / btnclock / frmclock.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  65 lines
  1. VERSION 2.00
  2. Begin Form frmClock 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   660
  6.    ClientLeft      =   1515
  7.    ClientTop       =   1500
  8.    ClientWidth     =   4335
  9.    Height          =   1065
  10.    Left            =   1455
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   660
  13.    ScaleWidth      =   4335
  14.    Top             =   1155
  15.    Width           =   4455
  16.    Begin CommandButton btnClock 
  17.       Caption         =   "time / date go here"
  18.       FontBold        =   -1  'True
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   8.25
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   432
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   2292
  29.    End
  30.    Begin Timer Timer1 
  31.       Interval        =   3000
  32.       Left            =   3240
  33.       Top             =   60
  34.    End
  35. End
  36. Option Explicit
  37.  
  38. Sub btnClock_Click ()
  39.    frmStopClock.Show
  40. End Sub
  41.  
  42. Sub Form_Load ()
  43.       Rem Make the form frmClock the same size as
  44.       Rem the button btnClock so that we only see
  45.       Rem btnClock. Borderstyle of frmClock must be 0
  46.    frmClock.Height = btnClock.Height
  47.    frmClock.Width = btnClock.Width
  48.       Rem Now set the Top and Left poperties of
  49.       Rem btmForm to put it on the lower rigth
  50.       Rem corner of the display screen
  51.    frmClock.Top = Screen.Height - frmClock.Height
  52.    frmClock.Left = Screen.Width - frmClock.Width
  53.    ShowTheTime     ' initial time display
  54. End Sub
  55.  
  56. Sub ShowTheTime ()
  57.    btnClock.Caption = Format$(Now, "hh:mm AMPM      dd mmm")
  58.    Rem Make the display format what you want
  59. End Sub
  60.  
  61. Sub Timer1_Timer ()
  62.    ShowTheTime  ' update the display
  63. End Sub
  64.  
  65.